home *** CD-ROM | disk | FTP | other *** search
/ Mixa 155: Dogs / MIXA 155: Dogs.iso / pc / Viewer / BROWSER(W) / フィルタ / PSI_ETC / STARTUP.PS < prev    next >
Text File  |  2002-10-29  |  994b  |  41 lines
  1. %
  2. %  Misc. setup
  3. %
  4.  
  5. /printpath { /_str 16 string def
  6.    {(Move: )print exch _str cvs print( )print _str cvs print(\n)print}
  7.    {(Draw: )print exch _str cvs print( )print _str cvs print(\n)print}
  8.    {(Curv: )print 6 -2 roll exch _str cvs print( )print _str cvs print
  9.       ( )print 4 -2 roll exch _str cvs print( )print _str cvs print
  10.       ( )print exch _str cvs print( )print _str cvs print(\n)print}
  11.    {(Done:\n)print} pathforall } @bd
  12.  
  13. %
  14. %  Enter the normal flow
  15. %
  16.  
  17. /@inp (%stdin) (r) file def
  18.  
  19. /@pmt { /@buf 256 string def
  20.     { prompt @inp @buf readline pop cvx exec } loop
  21.       } def
  22.  
  23. /@execut false def
  24. /executive { /@execut true def stop
  25.        } @bd
  26.  
  27. start
  28. @args length 1 eq
  29. {
  30.    { @inp cvx stopped @execut { clear exit } if
  31.      { /@execut false def errordict /handleerror get exec } if
  32.    } loop
  33. }
  34. {
  35.    1 1 @args length 1 sub
  36.    { @args exch get {run} stopped
  37.      { errordict /handleerror get exec exit } if
  38.    } for
  39. } ifelse
  40. @execut { @pmt } if
  41.